home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Divers Computer Bench⁄Apple / Logiciels Apple (dpt AppleSoft) / Apple Media Tool / Apple Media Tool Démo / Exemples AMT / Travel / For Programmers / SOURCES / S1_WORLD.k < prev    next >
Text File  |  1993-07-01  |  2KB  |  146 lines
  1. object S1_WORLD is MEDIADISTRIBUTOR0
  2. has
  3.     
  4.     OffScreen()
  5.         do
  6.             self.Enable(false);
  7.             self.Show(true);
  8.         end;
  9.     
  10. with
  11.     Enabled is false;
  12.     Running is false;
  13.     Duration is -1;
  14.     Shown is false;
  15.     X is 0; Y is 0; Width is 640; Height is 480;
  16.     Items is [
  17.         S1A2_S1_WRLD,
  18.         S1A6_S1_WRLDM,
  19.         S1A34_AUD_CLK_WAV,
  20.         S1A83_OPEN_SF,
  21.         S1A120_TRAVSND_WAV
  22.     ];
  23. end;
  24.  
  25. object S1A2_S1_WRLD is MEDIADELEGATOR
  26. has
  27.     
  28.     OffScreen()
  29.         do
  30.             self.Enable(true);
  31.             self.Show(true);
  32.         end;
  33.     
  34.     MouseDown(theX, theY)
  35.         do
  36.             S1A34_AUD_CLK_WAV.Run(true);
  37.         end;
  38.     
  39.     MouseUp(theX, theY)
  40.         do
  41.             TRANSITION.Set(WipeRight, 30);
  42.             APPLICATION.GoTo(S2_COAST);
  43.         end;
  44.     
  45. with
  46.     Target is C80_S1_WRLD;
  47.     Enabled is false;
  48.     Running is false;
  49.     Duration is -1;
  50.     Shown is false;
  51.     X is 0; Y is 0; Width is 640; Height is 480;
  52.     HotRegion is {
  53.         $01DF0002, $0000027F, $01E00000, $FFFFFFFF
  54.     };
  55. end;
  56.  
  57. object S1A6_S1_WRLDM is MEDIADELEGATOR
  58. has
  59.     
  60.     OffScreen()
  61.         do
  62.             self.Enable(true);
  63.             self.Show(true);
  64.         end;
  65.     
  66.     OnScreen()
  67.         do
  68.             self.Run(true);
  69.         end;
  70.     
  71. with
  72.     Target is C10_S1_WRLDM;
  73.     Enabled is false;
  74.     Running is false;
  75.     Duration is 0;
  76.     Shown is false;
  77.     X is 185; Y is 337; Width is 303; Height is 29;
  78. end;
  79.  
  80. object S1A34_AUD_CLK_WAV is MEDIADELEGATOR
  81. has
  82.     
  83.     OffScreen()
  84.         do
  85.             self.Enable(true);
  86.             self.Show(true);
  87.             self.Run(false);
  88.         end;
  89.     
  90. with
  91.     Target is C126_AUD_CLK_WAV;
  92.     Enabled is false;
  93.     Running is false;
  94.     Duration is 0;
  95.     Shown is false;
  96.     X is 592; Y is 38; Width is 32; Height is 24;
  97. end;
  98.  
  99. object S1A83_OPEN_SF is MEDIADELEGATOR
  100. has
  101.     
  102.     OffScreen()
  103.         do
  104.             self.Enable(true);
  105.             self.Show(true);
  106.         end;
  107.     
  108.     MouseDown(theX, theY)
  109.         do
  110.             S1A34_AUD_CLK_WAV.Run(true);
  111.             APPLICATION.GoTo(S2_COAST);
  112.         end;
  113.     
  114. with
  115.     Enabled is false;
  116.     Running is false;
  117.     Duration is -1;
  118.     Shown is false;
  119.     X is 15; Y is 79; Width is 70; Height is 104;
  120. end;
  121.  
  122. object S1A120_TRAVSND_WAV is MEDIADELEGATOR
  123. has
  124.     
  125.     OffScreen()
  126.         do
  127.             self.Enable(false);
  128.             self.Enable(false);
  129.             self.Run(false);
  130.         end;
  131.     
  132.     OnScreen()
  133.         do
  134.             S1A120_TRAVSND_WAV.Run(true);
  135.         end;
  136.     
  137. with
  138.     Target is C82_TRAVSND_WAV;
  139.     Enabled is false;
  140.     Running is false;
  141.     Duration is 0;
  142.     Shown is false;
  143.     X is 19; Y is 13; Width is 32; Height is 24;
  144. end;
  145.  
  146.